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++ 
Facility: 


VAX-11 Instruction Emulator 
Abstract: 


SoOooOooCoooooooooooooooooOoOooOoOO 


CoOooooooocoeo 


0 The routine in this module emulates the VAX-11 packed decimal 
0 CVTPL instruction. This procedure can be a part of an emulator 
0000 ackage or can be called directly after the input parameters 
44 ave been loaded into the architectural registers. 
0000 The input parameters to this routine are the registers that 


contain the intermediate instruction state. 
Environment: 


This routine runs at any access mode, at any IPL, and is AST 
reentrant. 


Author: 

Lawrence J. Kenah 
Creation Date 

18 October 1983 
; Modified by: 


NOU EWN OS OO NA UE WN SO OD NAME WIN SO OO NA UE WN 0 OD NOAU EW OOONOU Ewin 
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v01-007 


v01-006 


v01-005 


v01-004 


v01-003 


v01-002 


v01-001 
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LJK0034 Lawrence J. Kenah 16-Jul-1984 
Fix several bugs in restart logic. 


Use R4 instead of R7 as dispatch regteter for restart routine. 

There is a single code path where R/ contains useful data. 

Insure that the contents of R7 are preserved across the 
occurrence of the CVTPL_5 access violation. 

Use special restart path for CVTPL_6. 

Fix recalculation of srcaddr. 

Use saved R2 when saving condition codes. 


LJK0033 Lawrence J. Kenah 6-Jul-1984 
Add R10 to register mask use¢ along error path when the 
digit count is larger than 31. 


LJK0032 Lawrence J. Kenah 5-Jul-1984 
Fix restart routine to take into account the fact that restart 
codes are based at one when computing restart PC. 


LJK0030 Lawrence J. Kenah 20-Jun-1984 
Load access violation handler address into R10 before 
any useful work (Like memory accesses) gets done. 


LJK0029 Lawrence J. Kenah 24-May-1984 

Fix stack offset calculations in exit code when V-bit is set 
to reflect the fact that seven registers (not six) have 

been saved on the stack. 


LJK0024 Lawrence J. Kenah 22-Feb-1984 
Add code to handle access violations. Perform minor cleanup. 
LJK0023 Lawrence J. Kenah 10-Feb-1984 


Make a write to PC generate a reserved addressing mode fault. 
Temporarily do the same hie for a SP destination operand 
until a better solution can be figured out. 


LJK0016 Lawrence J. Kenah 28-Nov-1983 
Algorithm was revised to work with digit getrs. Overflow check 
was modified to account for -2,147,485,648. 


LJKOO1S) Lawrence J. Kenah 17-Nov-1983 
The emulation code for CVITPL was moved into a separate module. 
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yOn2000 Declarations =-SEP-1984 ey EMULAT.SRCJVAXCVTPL.MAR; 1 s (2) v04 
0 } § . SUBTITLE Declarations 
} : : Include files: 
0 1 § .NOCROSS 3 No cross reference for these 
33 } » ENABLE SUPPRESSION ; No symbol table entries either 
00 1 § CVTPL_DEF ; Bit fields in CVTPL registers 
44 110 PACK _DEF 3; Stack usage by exception handler 
4 14 STACR_DEF ; Stack usage for original exception 
90 118 SPSLDEF : Define bit fields in PSL | 
it Vie SSRMDEF ; Define arithmetic trap codes 
000 118 -MISABLE SUPPRESSION ; Turn on symbol table again | 
4 1 CROSS ; Cross reference is OK now 
000 119 3; External declarations 
000 120 
000 121 -DISABLE GLOBAL 
0000 «1 ; 
0000 1 EXTERNAL - 
0000 124 DECIMALSBOUNDS_CHECK,- 
0000 125 DECIMALSPACKED_ TO_BINARY_TABLE,- 
0000 ; $ DECIMALSSTRIP_ZEROS_RO_RT 
000 128 EXTERNAL - 
4464 129 VAXSEXIT_EMULATOR,- 
000 130 VAXSREFLECT_FAULT,=- 
0000 131 VAXSREFLECT_TRAP,= 
0000 1 ¢ VAXSRADRMOD,- 
0000 1 VAXS$ROPRAND 
4 134 . 
000 13 ; PSECT Declarations: 
0000 136 
444 \3 .~ DEFAULT DISPLACEMENT , WORD 
eeg ts 4 -PSECT _VAX$CODE PIC, USR, CON, REL, LCL, SHR, EXE, RD, NOWRT, LONG 
0000 141 BEGIN_MARK_POINT RESTART 


panes corereenerrereearnenrer rete pee ene 
| 
| 


—— 
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» SUBTITLE VAXSCVTPL = Convert Packed to Long 


Functional Description: 


The source string specified by the source length and source address 
operands is converted to a longword and the destination operand is 
replaced by the result. 


Input Parameters: 


| 
| 
| 
| 
RO = srclen.rw Length of input decimal string | 
Ri = srcaddr.ab Address of input packed decimal ln 

R3 - dst.wl Address of longword to receive converted string 


Note that the CVTPL instruction is the only instruction in the 
emulator package that has an cperand type of .wx. This operand type 
needs special treatment if the operand is to be written into a general 
register. The following convention is established. If the destination 
is anything other than a ponares register (addressing mode 5), then R3 
contains the address of the destination. If the destination is a 
general register, then R3 contains the ones complement of the register 
number. Note that if this is interpreted as an address, then R3 points 
to the last page of so-called S1 space. the reserved half of system 
virtual address space. The algorithmic specification of this 
convention is as follows. 


IF_R3 <31:04> NEQU “XFFFFFFF 
THEN 


R3 contains the address of the destination operand 


of the single register to be loaded with the result 
of the conversion 


That is, 


»@ 
GN 
“ou 


=> RO <= resuct 
=> R1 <= result 


pe] 
w 
' 


= FFFFFFF4 ==> R11 <= result 


Note that any ‘'S1 address’’ in R3 on input other than 
FFFFFFFF through FFFF 


FFFO will cause a length access 
violation. 


; Output Parameters: 
RO 
R1 


0 
Address of byte containing most significant digit of 
the source string 


nS 


Condition Codes: 


SOOO OCOOOSCOSOSOOSQOOCOCSOSOOSOOOSOSOOSOSOSOOOOOOOOOCOOCOOCOOOOOOOCOOOOCOOOOCOO <! 
SOOSOSSOSOSOOCOSOOSOOSOSOSS OOSCOCOOOOOOOSOSOOSOSOSOSOOCSOOCOSOOOSOOOOSOOOOOSOOOOSCOOSoOO -— 
SOOOSCSOOCOCOCOSCSOOCSOOOSOS OOSCOSCSOOOSOOOOCOOSOSOSOSOSOOSOOOOOCOOOOOOOOOOOOCOOoCoOoO (UU 
fa Dame Te ae | |e | we |e a we |e) ee we ee we) www wool ol olololololeleleleleleleleleleleleleloleoleoleleleloleloleololo\o Mm 


: R3 contains the ones complement of the register number 


a> 
ox 


SOOCOSCOSOOOOSOOOOCOOOOOSOSOSOOOOOSOOSOSOOOSOOSOOSOOOOOOOOOOOOOOOOOOCOOSOOOO <I 
OOOO OOCOCOCOSOSOSOSOCS SCO OSOSSSSOCOooooooooooSooooooooooooooeoo -— 


DWOWDDINO| OOO NNN NNN SMM MMO NE SONU D NWN OOOO OCOOOOOOOOOOOoOO 
AUIE AID 2 O ONAN WIN 9 OD NOAU EWN — O OD NAME WWI 0 ODNAU EWN O OONOUS WhO S e 


PUPS Be BS BB BB EE EAI NNR PIPONIPININPININID 2 2 OOO OS SS OOOOCO 
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N <= output longword LSS § 
Z <= output longword EQL 
| <- grtagee overflow 


Register Usage: 
This routine uses RO sot “ The genet tee codes are recorded 


in R2 as the routine executes. In addition, R10 serves its usual 
purpose by pointing to the access violation handler. 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


-ENABLE LOCAL_BLOCK 


ASSUME CVTPL_B_STATE EQ 2 ; Make sure we test the right FPD bit 
2$: BRW VAXSCVTPL_RESTART ; Restart somewhere else 
VAXSCVTPL:: 


BBS #<CVTPL_V_FPD+16>,R0 ss ; Branch if this is a restart 
#°MCRI, Ra: 7R5,R6, RP, R1i0> : Save some registers 


PUSHR 
ESTABLISH_HAND 
CVTPL _ACCVIO : Load R10 with handler address 
MOVPSL R2 Get current P L 
BICBS” #<PSLSM_N!PSLS$M_Z!PSLSM_ UPSLSM C>,R2 Clear condition codes 
CLRL R : Assume result is sere 
gs “608 RO ; greens that RO eau 31 


L ; ALL done if string has zero Length 
MARK_POINT CVTPL_1_, RESTART 
BSBu" DECIMAL$STRIP_ZEROS_RO_R1 Eliminate leading zeros from input 
ASHL #-1,R0,RO 3 Convert digit count to byte count 
BEQL : Skip loop if single digit 
: The first digit pair sets up the initial value of the result. 
MARK ten? CVTPL_2 , RESTART 
MOVZBL 1)+,R5 Get t digit pair 


MOVZBL DECIMAL SPACKED. TO BINARY. TASLELRSS. R6 
7 Convert to binary number 


The SOBGTR instruction at the bottom of the loop can be used to decrement 
; the byte count and test whether this is the special case of an initial 

; digit count of two or three. Note that this loop does not attempt to 

; optimize the case where the V-bit is already set. 


BRB 20$ ; Join the loop at the bottom 
MARK_POINT CVTPL_3 , RESTART 

10$: MOVZBL (R1)+,R5 Get pest di digit pair 
MOVZBL DECIMALSPACKED_ TO BINARY. TABLECRS 


; Convert ~ ines number 
EMUL #100,R6,R5,R6 ; Blend this latest with previous result 


3; Check all of R7 and R6<31> for nonzero. Unconditionally clear R6<31>. 
BBSC #31,R6,15$ ; Branch if overflow into R6<31> 


— 8 Se —— 4 
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VAXSCVTPL = VAX-11 Inst 
v04-000 VAXSCVTPL = Convert Packed to Lon ~ EMULAT.SRCIJVAXCVTPL.MAR; 1 
7 8 O4F 57 TSTL R7 : Anything into upper longword 
1 62} 28 BEQL 20$ ; Branch if OK 
52 ee 05 59 15$: BISB #PSLSM_V,R2 ; Set saved V-bit 
E0 F 828 ¢ 208: SOBGTR RO,10$ ; Continue for rest of whole digit pairs 
94 $¢ ; The final (least significant) digit is handled in a shightly different | 
05 63 ; fashion. This has an edventage in that the final overflow check is different 
059 64 ; from the check that is made inside the +g That check can be made quickly 
$23 9? ; without concern for the final digit special cases. 
0059 83 MARK POINT CVTPL_4 , RESTART 
55 61 o% 04 F 0027 98 30$: EXTZ0 #4,84,(R1),R ; Get Least significant digit 
56 55) 56) OOAsOPA 005 69 EMUL #16,R6,R5,R6 : Blend in with previous result 
Bee 4 3; This overflow check differs from the one inside the loop in three ways. 
906 78 : The check for nonzero R7 precedes the test of R6<31>. 
006 75: o The high order bit of R6 is left alone. (If overflow occurs, the 
p06: $f6 8 complete 32-bit contents of R6 need to be preserved.) 
B08 $8 : o A special check is made to see if the 64-bit result is identically 
006 279 ; equal to 
0063 280; 
49g: 81; R6 = 80000000 
poe B¢ 3 R7 = 00000000 
0063 84 ; o If this is true AND the input sign is minus, then the overflow bit | 
0063 285 ; needs to be turned off. This_unusual result is passed to the following 
0063 seo : code by means of a zero in R7. ALL other results cause nonzero R7 
OCs fh s (including the case where the V-bit was already set). 
$063 289 : Note that the check for V-bit previously set is the single additional 
0063 90 ; instruction that must execute in the normal (V-bit clear) case to test 
he: $3 : for the extraordinarily rare case of -2,147,483,648. 
57 D5 0063 298 TSTL R7 ; Overflow into second longword? 
11 12 0065 94 BNEQ 36$ : Branch if overflow 
0B 52 01 4#+£E€O 0067 295 BBS #PSLS$V_V,R2,33$ : Set R7 to nonzero if V-bit already set 
80000000 8F 56 D1 0068 296 CMPL R6, #*x80600600 : Peculiar check for R6<31> NEQ zero 
07 +1F 007 97 BLSsu 408 : Branch if no overflow at all 
9¢ 13 0074 98 BEQL 36$ 3; Leave R7 alone in special case 
5 D6 Bn 58 99 33$: INCL R7 ; Set R7 to nonzero in all other cases 
52 02 88 Bn re 69 6$: BISB #PSLSM_V,R2 ; Set saved V-bit 
0078 8 3; ALL of the input digits have been processed, Get the sign of the input 
0078 03 string and complete the instruction processing. 
0078 305 MARK_POINT CVIPL_5 , RESTART py ee 
55 61 FO 8F- 8B th $ 40$: BICB3 #*B11110000,(R1),R5 ; Get sign ‘‘digit 
$080 8 CASE R5,LIMIT=#10,TYPE=B,<- ; Dispatch on sign 
08 09 g0$.- : 10 => 
10 0$,- : 11=2- 
0 11 3 : 1 => + 
8 0 \¢ 0$,- : 15 => - 
0 1 60$,- 3 14 => + 


— 
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0 14 60$,- : 15 => + 
o8 13 > 
$9 5 ; Note that negative zero is not a problem in this instruction because the 
03 8 ; longword result will simply be zero, independent of the input sign. 
= SUS 9 0 50$: MNEGL R6,R6 3; Change sign on negative input 
57 5 H 1 TSTL RS ; Was nputs=201470 485, 608? - 
03 12 009 ¢ BNEQ 60$ ; Nope, leave V-bit alone 
52 02 8A 0097 BICB #PSLSM_V,R2 3; Clear saved V-bit 
51 BE DO OO9A 4 60$: MOVL (SP)+,R1 ; Restore original value of R1 
ma: 944 2 CLRQ -(SP) ; Set saved RZ and R3 to zero 
OO9F 7? ; If R3 contains the ones complement of a number between 0 and 15, then the 
OQO9F 8 ; destination is a general register. Special processing is required to 
OO9F 9 ; correctly restore registers, store the result in a register, and set the 
i ? : condition codes. 

57 53 D2 O09F 3 MCOML R3,R7 ; Set up R7 for Limit check with CASE 
Ooas $7 CASE R7,LIMIT=#0,TYPE=L,<- ; See if R7 contains a register number 
$ba3 35 100$,- ; RO -- Store into RO via POPR 
dOA2 $$ 100$,- 3 R1 -- Store into R1 via POPR 
00A 334 110$,- ; R2 -- Store in saved R2 on stack 
O0A 39 110$,- ; R3 -- Store in saved R35 on stack 
OOA 40 110$,- 3; R4 -- Store in saved R4 on stack 
O0A 41 110$,- ; RS -- Store in saved R5 on stack 
OO0A2 ¢§ 110$,- ; R6 == Store in saved R6 on stack 
Boas oi 110$,- ; R7 -- Store in saved R7 on stack 
Boas 45 100$,- ; RB -- Store into R8 via POPR 
O0A 46 100$,- ; RY == Store into RI via POPR 
0O0A 47 120$,- ; R10 -- Store in saved R10 on stack 
OOA 48 100$,- 3; R11 -- Store into R11 via POPR 
QOA 49 100$,- ; AP -- Store into AP via POPR 
BoA 39 100$,- 3; FP -- Store into FP via POPR 
00A 26 ; The result of specifying PC as a destination operand is defined to be 
O0A 53 ; UNPREDICTABLE in the VAX architecture. In addition, it is difficult (but 
O0A2 54 ; not impossible) for this emulator to modify SP because it is using the 
00A 55 ; stack for local storage. We will generate a reserved addressing mode fault 
OQ0A 2$ 3; if PC is specified as the destination operand. We will also temporarily 

OA 57 ; generate a reserved addressing mode fault if SP is specified as the 
BRA 28 3 destination operand. 
OOA 60 CVTPL_RADRMOD ,- ; SP -=- Reserved addressing mode 
OA 61 CVTPL_RADRMOD ,- ; PC -= Reserved addressing mode 
a : 
00C6 64 ; If we drop through the CASE instruction, then R3 contains the address of 
00C6 65 ; the destination operand. This includes system space addresses in the range 
Bare $6 ; €0000000 to FFFFFFFF other than the ones complements of 0 through 15 ; 
0C6 67 ; (FFFFFFFO to FFFFFFFF). The next instruction will cause an access violation 
bere of ; for all such illegal system space addresses. 
006 4 MARK_POINT CVTPL_6 , RESTART 


Reseneceomeene 


rit. == 7 
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Ss SS 6 @ cS 4 MOVL R6, (R3) ; Store result and set condition codes 
C 5g 3; This is fhe exit path for this routine. The result has already been stored. 
C9 74 ; The condition codes are set and the saved registers restored. The BICPSW 
0Cc9 75 ; instruction is necessary because the various instructions that stored the 
0Cc9 6 3 result CROV, PUSHL, etc.) do not affect the C-bit and the C-bit must be 
bce , :; clear on exit from this routine. 
01 B9 O0C9 i: 708: BICPSW #PSLSM_C ; Insure that C-bit is clear on exit 
52 88 O0CB 9 BISPSW R2 ; Set saved V-bit 
OE 52 4 EO QOOCD 1 BBS #PSLSV_V,R2,75$ ; Step out of Line for overflow check 
O4FC 8F BA 0001 ‘ POPR #*M<R27R3$,R4,R5,R6,R7,R10> ; Restore saved registers 
0D5 3; and clear R2 and R 
i ec 
OF 69 B28 86 728: BICPSW #<PSLS$M_N!PSLSM_Z!PSLSM_V!PSL$M_C> ; Clear condition codes 
53 B8 00D 87 BISPSW R3 ; Set relevant condition codes 
O4FC 8F BA OODA 88 POPR #*M<R2,R3,R4,R5,R6,R7,R10> ; Restore saved registers 
°F CODE 390 my 
QODF 91 ; If the V-bit is set and decimal traps are enabled (IV-bit is set), then 
OODF 35 3; a decimal overflow trap is generated. Note that the IV-bit can be set in 
OODF 93 ; the current PSL or, if this routine was entered as the result of an emulated 
ited Re 3 instruction exception, in the saved PSL on the stack. 
53 DC OODF 96 75$: MOVPSL R3 ; Save current condition codes 
52 05 €0 OO0E1 97 BBS #PSLSV_IV,R2,78$ ; Report exception if current IV-bit set 
52 OO000°CF 9E OO0ES 98 MOVAB VAXSEXTT_EMULATOR,R2 ; Set up R2 for PIC address comparison 
AE 52 Di OOEA 99 CMPL R2,<4%7>TSP) 3; Is return PC EQLU VAXSEXIT_EMULATOR ? 
E6 12 OOE 400 BNEQU ; No. ee return V-bit se 
—E14C AE 05 €1 OOFO 401 BBC #PSLSV_IV,<<4"<74+1>>+4EXCEPTION_PSL>(SP) ,72 
Boee rh 3; Only return V-bit if IV-bit is clear 
OF B9 OOFS5 404 BICPSW #<PSLSM_N!PSL$M_Z!PSLSM_V!PSL$M_C> ; Clear condition codes 
53 B68 ti the BISPSW R3 ; Set relevant condition codes 
O4FC 8F BA oa rth 78$: POPR #*M<R2,R3,R4,R5,R6,R7,R10> ; Otherwise, restore registers 
OOFD 409 ; ... drop into INTEGER_OVERFLOW 
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FD 34 
FD ; This code path is entered if the result is too large to fit into a longword 
FD 3 and snteger overs vey exceptions are enabled. The final state of the 
+ 4 : instruction, including the condition codes, is entirely in place. 
oh ; Input Parameter: 
OFD : (SP) = Return PC 
ae + Output Parameters: | 
OFD ; O(SP) = SRMSK_INT_OVF_T (Arithmetic trap code) 
OFD : 4(SP) = Final “state PSL 
4 ; 8(SP) = Return PC 
are : Implicit Output: 
eee ; Control passes through this code to VAXSREFLECT_TRAP. 
INTEGER_OVERF LOW: 
7E oC MOVPSL =(SP) 3; Save final PSL on stack 
01 bp PUSHL #SRMSK_INT_OVF_T ; Store arithmetic trap code 
FEFC' BRW VAXS$REFLECT_TRAP ; Report exception 


The destination address is a general register. R3 contains the ones 
complement of the register number of the general register that is to be 
loaded with the result. Note that the result must be stored in such a way 
that restoring the saved registers does not overwrite the destination. 


The algorithm that accomplishes a correct store of the result with the 
accompanying setting of the condition codes is as follows. 


eee register is in the range R2 through R7 or R10 


store the result on the stack over that saved register 
Taha that this store sets condition codes, except the C-bit) 


construct a register save mask from the register number 

store result on the top of the stack ; 
(note that this store sets condition codes, except the C-bit) 
core the result using the mask in R3 


EN 
restore saved registers 


3; R7 contains 0, 1, 8 9, 11, 12, or 13. We will use the bit number to 
3; create a register save mask for the aperepr vate register. Note that #1 
3; is the source operand and R7 is the shift count in the next instruction. 


100$: ASHL R7,#1,R3 
PUSHL R 


PoP or or or or or or a or or ror or a ot ar rt ot ot ot et et et es A) 


53 (01 ; R3 contains mask for single register 
; Store result and set condition codes 
; Restore result into correct register 


Restore registers and return 


Sars 
Won 
-—-wo 
-—>Pro 


POPR R 
465 BRB 70$ 
183 ; R7 contains 2, 3, 4, 5, 6, or 7 


SOOOOCOOOCOCOOSSOOCOCSCOCOOOSCOOSOCOSOOSOCOOCSSDOOOOSOOOOOOOSOOOOOOOOOOO <! 
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MMA POlLleLeS 


VAXSCVTPL = VAX 
vOu=000 VAX$C 


of 
VTPL 
10E 
FB AES7 8656 «D0 19 
B46 811 «011 
11 
11 
844 
115 
0119 
0118 
0118 


18 AE 56 00 
11 
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110$: MOVL R6 -8(SP)CR7] 
BRB 70$ 


; R7 contains a 10 


120$:  MOVL R6 
BRB 0 


24 (SP) 
70$ 


NOUSWNM—OOO °F 


- DISABLE LOCAL BLOCK 


SSEp=198e 90:25:06 


’ 
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Store result over saved register 
Restore registers and return 


Store result over saved register 
Restore registers and return 


v04-00 
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-SEP-19 
- SUBTITLE DECIMAL _ROPRAND 
Functional Description: 


VAXSCVTPL 
v04-000 


This routine receives control when a digit count re than 31 
is detected. The exception is architecturally defined as an 
abort so there is no need to store intermediate state. The digit 
count is made after regtstere are saved. These registers must be 
restored before reporting the exception. 


; Input Parameters: 


Saved R1 
Saved R4 


mn——COoO 
Soonrwwro 
nett 
ONnnnnw 
vuuvuvVvUU 
wwewerwrwrww 
seenvnver 

wn 

ow 

< 

@® 

a 

z 


R10 
Return PC from VAXSCVTPL routine 
; Output Parameters: 


OO(SP) = Offset in packed register array to delta PC byte 
04(SP) = Return PC from VAXSCVTPL routine 


; Implicit Output: 


This routine passes control to VAX$ROPRAND where further 
exception processing takes place. 


49% : 


O4F2 8F 
FEDC’ 


DECIMAL _ROPRAND: | 
POPR #*M<R1,R4,R5,R6,R7,R10> ; Restore saved registers 
PUSHL #CVTPL_B_DELTA_PC : Store offset to delta PC byte 
BRiw VAX$ROPRAND ; Pass control along 


CGOOOCOCOCCOOCOOCOCOSCOCOOOOOOOOOOOOOOOOOOOO 


— tt = 2s SS 2 SS 2 2 = 2 = 2 SS 2 2 


PUPP SSISIISIVIVIVIVT 
———§ ~HOOCOCOCCOS 
WO ODONOUS WHO 


BA 
DD 
31 
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4 
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4 
& 
4 
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4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
& 
4 
4 
4 
4 
& 
4 


SIDED DEDEDE DED De TU Be BS BB EB EAI INIA PPIPOPINPOPND) 2 SS OS 
SOONA NE WIN OOD NAN E WIN $$ O OO NAME WIN 0 OD NOAM EWN (OC OONOU SW OWOONOu 
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: . SUBTITLE CVTPL_RADRMOD 
; Functional Description: 


This routine receives control when PC or SP is used as the destination 
of a CVTPL instruction. The reaction to this is not architecturally 
defined so we are somewhat free in how we handle it. We currently 
enerate a RADRMOD abort with RO containing the correct bbit result. 
n ne Ph saat we may make this instruction restartable following this 
exception. 


Input Parameters: 


RO - Zero 

Ri = Address of source deciial string 

R2 = Contains overflow indication in R2<PSL$V_V> 

R35 = Register orae in ones complement form 
ng = -15 => PC was destination operand 
R35 = -14 => SP was destination operand 

R4 = scratch 

RS = scratch 

R6 - Correct 32-oit result 

R7 = scratch 

QO(SP) = Saved R2 (contains zero) 

04(SP) = Saved R3 (contains zero) 

O8(SP) = Saved R4 

12(SP) - Saved R5 

16(SP) = Saved R6 

20(SP) = Saved R7 

24(SP) = SAVED R10 

28(SP) = Return PC from VAX$xxxxxx routine 


Output Parameters: 
RO - Correct 32-bit result 
R1, R2, and R3 are unchanged from their input values. 
R4 through R7 and R10 are restored from the stack. 


OO(SP) - Offset in packed register array to delta PC byte 
04(SP) = Return PC from VAXS$xxxxxx routine 


Implicit Output: 


This routine passes control to VAXS$RADRMOD where further 
exception processing takes place. 


Be Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Be Se Ge Ge Se Se Ge Ge Se Se Se Se Se Ge Ge Ge Se Se 


CVTPL_RADRMOD : 
ADDL #8,SP 


R6,RO 
POPR  #*M<R4,R5,R6,R7,R10> 
PUSHL #CVTPL’B_DELTA_PC 
BRW VAXSRABRAOD 


Discard ‘‘saved’’ R2 and R3 
Remember final result 

Restore saved registers 

Store offset to delta PC byte 
Pass control along 


~— 
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i - SUBTITLE CVTPL_ACCVIO = Reflect an Access Violation 
: Functional Description: 


This routine receives control when an access violation occurs while 
executing within the VAXSCVTPL emulator routine. 


The routine header for ASHP_ACCVIO in module VAXSASHP contains a 
detailed description of access violation handling for the decimal 
string instructions. This routine differs from most decimal 
instruction emulation routines in that it preserves intermediate 
results if an access violation occurs. This is accomplished by 
storing the number of the exception point, as yer as intermediate 
arithmetic results, in the registers RO through R3. 


Input Parameters: 

See routine ASHP_ACCVIO in module VAXSASHP 
Output Parameters: 

See routine ASHP_ACCVIO in module VAX$ASHP 


fame me fe |e ae we we we ae we we we fw ww ewe ww aww lwo lol ololololelololeololeleleleolelolololelololololololol aloo wg) 
a ee me a ee a a ee ee ee ce a ee ae ce ee ae ee a a a a a a ce a ee a ee ed a ed ad ad ad 
PDRD_DP GAAS £ BENIN NININI WAIN 
SOOO MUNIN EE PIPINIMIPIM OA AAWOS OVW WANNA AANA AIO 


96 CVTPL_ACCVIO: 
52 D4 9 CLRL 8 : Initialize the counter 
FEC7 CF OF 9 PUSHAB MODULE_BASE ; Store base address of this module 
O1F6'CF OF 9 PUSHAB MODULE END ; Store module end address 
FECO" 30 0 BSBW DECIMACSBOUNDS_ CHECK ; Check if PC is inside the module 
5E 04 CO 0 ADDL ; Discard end address 
51 BE C2 0 SUBL2 (SP)+,R1 : Get PC relative to this base 
OOO0O'CF42 51 BI 04 10$: CMPW R1,PC_TABLE_BASECR2) :; Is this the right PC? 
07 13 0 BEQL § 3; Exit loop if true 
F452 06 F2 5 AOBLSS #TABLE_SIZE,R2,10$ 3; Do the entire table 
08 ; If we drop through the dispatching based on PC, then the exception is not 
, 3 one that we want to back up. We simply reflect the exception to the user. 
OF BA 11 208: POPR #*M<RO,R1,R2,R35> 3; Restore saved registers 
05 1 RSB ; Return to exception dispatcher 
14 ; The exception PC matched one of the entries in our PC table. R2 contains 
15 ; the index into both the PC table and the handler table. R1 has served 
18 ; its purpose and can be used as a scratch register. 
51 Q000'CF42 3C¢ 18 30$: MOVZWL HANDLER_TABLE RASECRED A ; Get the offset to the handler 
FEAO CF41 = =17 4 JMP MODULE _BASECRT ; Pass control to the handler 
1 ; In all of the instruction-specific routines, the state of the stack 
§ 3 will be shown as it was when the exception occurred. ALl offsets will 


: be pictured relative to RO. 
| 
| 
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» SUBTITLE Context=-Specific Access Violation Handling for VAXS$CVTPL 


16 625 
16 ? g H 
19 ° ; Functional Description: 
160 6 3 ; The intermediate state of the instruction is pecked into registers RO 
8198 630 ; through R3 and control is passed to VAXSREFLECT_FAULT that will, in 
16 631 ; turn, reflect the access violation back to the user. The intermediate 
0160 6 § ; state reflects the point at which the routine was executing when the 
3198 ? Z ; access violation occurred. 
ae 635 ; Input Parameters: 
o180 é ; 3 RO - Address of top of stack when access violation occurred 
0160 o36 3 OO(SP) = Saved RO (restored by VAXS$HANDLER) 
B18 640 ; O4(SP) = Saved R1 
160 641 ; O8(SP) = Saved R 
0160 on6 ; 12(SP) = Saved R 
0160 643 ; 
0160 644 ; See individual entry points for details 
0160 645 ; 
0160 646 ; Output Parameters: 
0160 647 ; 
0160 648 ; RO - Address of return PC from VAXSCVTPL 
0160 649; Ri = Byte offset to delta-PC in saved register array 
8188 629 ; (PACK_V_FPD and PACK_M_ACCVIO set to identify exception) 
0160 652 ; See List of input parameters for CVTPL_RESTART for a description of the 
0160 653; contents of the packed register array. 
0160 654 ; ‘ 
0160 655 ; Implicit Output: 
0160 656; 
0160 657; R4, RS, R6, R7, and R10 are restored to the values that they had 
0160 658 ; when VAX$CVTPL was entered. 
0160 659 ;:- 
0160 660 
0160 661 ENABLE LOCAL_BLOCK 
0160 066 
0160 663 ;+ 
0160 664 ; CVTPL_1 
0160 665 ; 
0160 666 ; An access violation occurred in subroutine STRIP_ZEROS while scanning the 
3192 roth 3 source string for leading zeros. 
$185 669 ; RO = Updated digit or byte count in source string 
8198 670 ; R1 = Address of current byte in source string 
16 671 ; R2 = Condition codes reflecting result 
0160 ore 3 R3 = Address of destination (unchanged from input value) 
198 of? 3 R6 =- Intermediate (or final) longword result 
160 675 ; 0O(RO) = Return PC from STRIP_ZEROS 
160 976 : 04(RO) = Original value of R1 (scraddr) 
160 677 ; 98 (R9} - Saved R4 
160 978 3 12(RO) = Saved R5 
160 679; 18tR3} - Saved R 
160 o80 3 § (RO) = Saved R 
160 681; 4(RO) = Saved R10 
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1 $ ¢ 3 28(RO) = Return PC from VAXS$CVTPL routine 
16 684 
16 685 CVTPL_1: 
50 04 CO 016 6 § ADDL #4 ,RO ; Discard return PC from STRIP_ZEROS 
54 01 90 016 6 MOVB #CVTPL_1_RESTART,R4 ; Store code that locates exception PC 
1E 11 016 6 5 BRB 10$ ; Join common code 
16 6 
Bre 690 ;+ 
16 691 ; CVTPL_2 through CVTPL_5 
016 $36 ; 
819 693 ; RO = Updated digit or byte count in source string 
16 694 ; Rl = Address of current byte in source string 
016 695 ; Re = Condition codes reflecting result 
0168 696 ; R35 = Address of destination (unchanged from input value) 
8188 a4 3 R6 = Intermediate (or final) longword result 
0168 699 ; QO(RO) = Original value of R1 (scraddr) 
0168 700 ; 04(RO) = Saved R4 
0168 701; 08(RO) = Saved RS 
0168 702 ; 12(RO) = Saved R6 
0168 703 ; 16(RO) = Saved R7 
0168 704 ; 20(RO) = Saved R10 : 
0168 705 ; 24(RO) = Return PC from VAXS$CVTPL routine 
0168 706 ;:- 
0168 707 
0168 708 CVTPL_2: 
54 02 90 0168 709 MOVB #CVTPL_2_RESTART,R4 ; Store code that locates exception PC 
19 11 #0168 710 BRB 10$ ; Join common code 
016D 711 
016D ar CVTPL_3: 
54 03 90 O16D 71 MOV #CVTPL_3_RESTART,R4 ; Store code that locates exception PC 
14 11 #0170 714 BRB 10$ ; Join common code 
pies 715 
017 716 CVTPL_4: 
54 04 90 0172 717 MOV #CVTPL_4_RESTART,R4 ; Store code that locates exception PC 
OF 11 0175 718 BRB 10$ ; Join common code 
0177 =719 
0177 =720 CVTPL_S: 
54 05 90 0177 721 MOV #CVTPL_5_RESTART ,R4 ; Store code that locates exception PC 
OA 11 O17A 1s6 BRB 10$ 3; Join common code 
017C #872 
017C 724 ;+ 
prec 725 ; CVTPL_6 
7] 86 fen 3 : . 
bigt fet 3 RO - Updated digit or byte count in source string — 4 
17¢ 66728: Ri = Address of most atent figent byte in source string (original srcaddr) 
O17C 729; Re - Condition codes reflecting result 
017C 386730 ; R53 = Address of destination (unchanged from input value) 
pire 4 1 3 R6 = Intermediate (or final) longword result 
017C 7 5 3 O(RO) - Zero (will be restored to Re 
17 6734: 4(RO) = Zero (will be restored to R3) 
i aes gcRR} - Saved 
17¢ 67 § ; 1 ae - Saved R5 
Bizet 737 ; 16(RO) = Saved R 
7G06ClUCO SO 2 20(RO) = Saved R 


. 
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17¢ §6—©739 ; gaik ) = Saved R10 
A: ok ; 8(RO) = Return PC from VAXSCVTPL routine 
17¢ 14g é 
17C = 7435. CVTPL_6 
50 04 cO O17C 744 ADDL #4,R0 ; Discard extra longword on the stack 
54. 06 90 O17F 745 MOVB #CVTPL_6_RESTART,R4 ; Store code that locates exception PC 
04 AE D0 018¢ 246 MOVL PACK_L-SAVED_R1(SP),- 
6 HH eee (RO) ; Put ‘‘current’’ R1 on top of stack 
51 04 AE 80 (C3 b18e 749 108: SUBL3 (RO)+,CVTPL_A_SRCADDR(SP) ,R1 ; Current minus initial srcaddr 
01 AE 51 90 8158 £39 MOVB R1,CVTPL_B_DELTA_SRCADDR(SP) ; Remember it for restart 
O18F 736 ASSUME CVTPL_V_SAVED_PSwW EQ 0 
80 8F 89 QO18F 754 BISB3 #CVTPL_M_FPD,- ; Save current condition codes 
08 AE 0192 755 PACK_L-SAVED_R2(SP),- : (found in saved R2) 
02 AE 0194 756 CVTP TATE(SP) : and set internal FPD bit 
04 54 FO 0196 757 INSV R4,#COTPL_V_STATE,=- 3 Store code that identifies 
03 0199 758 #CVTPL_S_STATE,- 3 exception PC so that we 
02 AE 019A 759 CVTPL_B STATE(SP) 3: restart at correct place 
08 AE 56 00 43 £69 MOVL R6,CVTPC_L_RESULT (SP) ; Save intermediate result 
O1A0 762 ; At this point, all intermediate state has been preserved in the register 
Q01A0 763 ; array on the stack. We now restore the cogr ster’ that were saved on entry 
O1A0 «764 ; to VAX$CVTPL and pass control to VAXSREFLECT_FAULT where further exception 
BiAe £03 3; dispatching takes place. 
54 80 7D O1A0 767 MOVQ (RO)+,R4 3; Restore R4 and R6 
56 80 7D O1A3 768 MOVQ (RO)+,R6 3 
SA 80 00 B18 168 MOVL (RO)+,R10 2 «se ONG 
51 00000303 8F DO QO1A9 771 MOVL #<CVTPL_B_DELTA_PC!=- ; Indicate offset for delta PC 
0180 ie PACK_M_FPD!- ; FPD bit should be set 
0180 77 PACK_M_ACCVIO>,R1 ; This is an access violation 
FE4D" 31 p180 oe BRW VAXSREFLECT_FAULT ; Continue exception handling 
0183 776 - DISABLE LOCAL_BLOCK 


| 
| 
| 
| 
| 
| 
| 


RO<31:24> = Size of taptrustton in instruction stream (delta PC) 

R1 Address cf current byte in source string 

Re Value of intermediate or final result 

R Address of destination (unchanged from input value of R3) 


OO(SP) = Return PC from VAXS$CVTPL routine 
Implicit Input: 
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a4 . - SUBTITLE CVTPL_RESTART = Unpack and Restart CVTPL Instruction 
Ef ? Functional Description: 
7 ¢ : This routine receives control when a CVTPL instruction is restarted. 
7 The instruction state (stack and ere registers) is restored to the 
784 ; state that it was in when the instruction (routine) was interrupted and 
At control is passed to the PC at which the exception occurred. 
787 Input Parameters: 
789 ; 31 23 15 07 00 
790 . $row mene maroon eoee Poem awww nme onoes $e eee eer eon wenn eee tere rer eee ewee meme ft 
791 ; : delta-PC ' state H srclen t : RO 
O36 . tavern nreeeeeane Peewee eae arc wre meas bo nw ewer onawn eae poo e mom ese wen ow ee + 
79 H srcaddr t : R1 
794 . momen aman n ae CS tee sete eeceeeecene pecan weno me we ames > 
795 : result + + R2 
796 pew ew we me oe eee toe someone cane ne fwmoer esa nensncsee Ce > 
797 H dst t : R3 
44 bower omen on ann aoane poem ma nnn mr en m eon moe eee wr ewe een ewe ewe we pwc weer nese memo ae + 
800 Depend ne on where the exception occurred, some of these perenetors 
801 | not be relevant. They are nevertheless stored as if they were 

valid to make this restart code as simple as possible. 

RO<04:00> - Remaining digit/byte count in source string 

RO<07:05> - spare 

RO<15:08> = ‘‘srcaddr’’ difference (current - initial) 

- Saved condition codes 
mpegg:e> - Restart code (identifies point where routine will resume) 
RO<25> - Internal FPD fla 


ot ot ot = I I I I I QHOODOOCOO 


Note that the initial “‘srclen’’ is checked for cope) tty before any 

RO LEQU 31, which 
leaves bits <15:5> free {or storing intermediate state. In the case of 
an access violation, RO<15:8> is used to store the difference between 
the original and current addresses in the source string. 


restartable exception can occur. This means that 


Output Parameters: 


RO = Updated digit or byte count in source string 

R2 = Condition codes reflecting result 

R3 = Address of destination (unchanged from input value) 

Re - Intermediate (or final) longword result, ” 
R10 - Address of CVTPL_ACCVIO, this module's ‘‘condition handler 


If the instruction was interrupted at mark point 6, the stack and R1 
contain different values than they do if the instruction was nterrupted 


fale ee eel ele eel el ele el ele el elelelaleleloleleleleleleleleloeleleleleleleleoliolelelelelelelelel ala el ol el ola oii) 
ababababaid@iaaAawdabtadiaiaaataat dat data database aaa aatiatadabadad Wat 
BDOWDWWVIWOWVIVIVIVOVOOVIVOVIVIVIVOVIVOIVOIVIVOVIVIVIVIVIVOIVOIVIVIVIVOIVIVOVIVOIVIVIVIVOIVOIVIVOVIVOVOIVOIVOIVOVOIOVOVOOD 
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: RO<19:16> 


0.0909.0000 09 00 G9 09 09 09 OD CD Cd Cd Od CD C9 OD CD Cd OD Cd Cd CD CD CO Cd CO G9 OD CD CD: 
FAWN =O OONOAU EWN 9 ODNAMU EWN SO OODNAUE Wn 
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at any of the intermediate restart points. 
Access violation occurred at restart points 1 through 5 
R1 - Address of current byte in source string 


Original value of R1 (scraddr) 
S RG 


Saved R10 
Return PC from VAX$CVTPL routine 


Access violation occurred at restart points 1 through 5 
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Ri = Address of most po i byte in source string 
(original srcaddr) 


Zero (will be restored to R2) 
Zero (will be restored to R3) 


Saved R10 
Return PC from VAX$CVTPL routine 
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Implicit Output: 
R4, R5, and R7 are used as scratch registers 


PARRA Fd ak et eh eh te ee ee hb ab eh ata 


(GO G9 Cd CD CD CD Cd Cd CO 09 CO Cd OD CD CO GD CD G9 Cd CO Cd C9 CO CD CO CD CD CO CO CD CDCD COCO ODODCSODODCDODCDOD ir? 
Co 00000008 SIN NINN MMIII 


VAXSCVTPL_RESTART:: 
O4F3 8F 6B POSHR #*M<RO,R1,R4,R5,R6,R7,R10> 3; Save some registers 
ESTABLISH_HANDLER CVTPL_ACCVIO =; Reload R10 with handler address 
; Make sure that the CVTPL_B_STATE byte is now on the stack (in RO or R1) 
ASSUME CVTPL_B_STATE LE 7 
046 «OCF EXTZV #CVTPL_V_STATE,- 
03 C TATE,- 
54 02 AE CVTPL_B_STATE (SP) .R4 ; Put restart code into R4 


DOONAN WIN OOD NAUE WN CO OD NAU EWN 0 OONAUE WN OOONOWM 


; The next two instructions reconstruct the initial value of ‘’srcaddr’’ that 
3; is stored on the stack just above the saved R4. This value will be loaded 
; into R1 when the instruction completes execution. 


are CVTPL_B_DELTA_SRCADDR(SP) ,R5 ; Get the difference 
SUBL RS,CVTPC_A_SRTADDR(SP) ; Recreate the griginal R1 
MOVZBL RO,RO ; Clear out RO<51:5> 


55 O1A 9A 
04 af 5 C2 
5 50 9A 


| 
; Make sure that the intermediate result is stored in R2 
ASSUME CVTPL_L_RESULT £0 8 | 
| 
| 
| 
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truction Emulator for CVTPL 19-3 or 1880 01:33:08 AX/VMS Macro V04-00 

T = Unpack and Restart CVTPL 5-SEP-1984 00:45:06 CEMULAT.SRCJVAXCVTPL.MAR; 1 
3 MOVL Rg +86 

9 MOVPSL R 3; Get clean copy of PSL 

94 EXTZV #CVTPL_V_SAVED_PSW,- ; Retrieve saved copy of 
95 #CVTPL_S SAVED _PSW,- 3 condition codes 

96 CVTPL B_STATE(SP) «RS 

9 Bicee #<PSLSM_N!PSLSM_Z!PSLSM_V!PSLS$M_C>,R2 ; Clear condition 
38 BISB R5,R : Restore saved codes to R 
69 3; A check is made to determine whether the access violation occurred at 
901 ; restart point number 6, where the stack is slightly different from its 
$08 3; state at the other exception points. 
904 ADDL #4,SP ; Discard saved RO place holder 
B82 CMPL R4 #CVTPL_6_RESTART ; Check for restart at the bitter end 
9 § BLSSU ; Branch if somewhere else 

90 MOVL (SP)+,R1 3; Restore saved ‘‘current’’ R1 
908 CLRQ -(SP ; Store final values of R2 and R3 
909 10$:  MOVZWL RESTART PC TABLE BASE~2CR41.R4 ; Convert code to PC offset 
319 JMP MODULE _BASECR4 ; Get back to work 
aig END_MARK_POINT CVTPL_M_STATE 
914 END 
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Symbol table ~ g-3tF =198¢ 85 33: 88 EMULAT. SRE 4 AXCVTPL MARS 1 she 
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CVTPL_S_RESTART z 
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MODUL 
PACK_L-SAVED_R1 
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G 
= VAX-11 Instruction Emulator for evePL 197 3ee-138e 0433108 AX/VMS Mac 
Psect synopsis 0:45:06 


r 
“SEP-1984 EMULAT.SRCIJVA 
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' Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS . 0080008 ( -)») 00 ¢ 0.) NOPIC uUSR CO ABS LCL NOSHR NOEXE NORD 
SABSS 0 ( .) 1 ¢( #1.) \NOPIC USR CON $ LCL NOSHR EXE RD 
VAXSCODE OOOO1F6 (¢ 502.) ¢ ( ¢°} PIC USR CON REL LCL SHR EXE RD 
TABLE QOOO000C < 12.) 03 ¢ “a PIC USR CON REL LCL SHR NOEXE RD 
HARDLER_TABLE esi ( 12.) Be hy. PIC USR CON REL LCL SHR NOEXE RD 
RESTART_PC_TABLE OO000C ( 12.) S £ = Sot PIC USR CON REL LCL SHR NOEXE RD 
tem esaneneana eseon ee am woo e + 
: Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 15 00100 00-08 00:00:02 $8 
Command processing 7 bs Bo 00:00:04. 
Pass 12 00:00:03.63 00:00:12.69 
Symbol table sort 9 00:00:00.15 00:00:00.18 
Pass 2 16 00:00:01.80 00:00:05.26 
Symbol table output 7 es Bb Sb Ba 
Psect synopsis output 3 00:00:00.0 00:00:00.0 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 387 00:00:06.17 00:00:25.31 


The working set Limit was 1050 pages. 

19456 bytes (38 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 137 non-local and 27 local symbols. 
914 source Lines were read in Pass 1, producing 21 object records in Pass 2. 

21 pages of virtual memory were used to define 19 macros. 


+ 
H Macro library statistics : 


Macro Library name Macros defined 
.$255$DUA28 : CEMULAT .OBJ JVAXMACROS.MLB; 1 10 
$255$DUA28: CSYSLIBJSTARLET.MLB; 2 6 
TOTALS <all Libraries) 16 


303 GETS were required to define 16 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:VAXCVTPL/OBJ=OBJ$:VAXCVTPL MSRC$:VAXCVTPL/UPDATE=(ENHS: VAXCVTPL) +LIB$:VAXMACROS/LIB 
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XCVTPL.MAR; 1 
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